home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / CPUs / Macintosh Solutions Demo / Macintosh Solutions 1.0 / card_4600.txt < prev    next >
Text File  |  1990-08-24  |  7KB  |  314 lines
  1. -- card: 4600 from stack: in.0
  2. -- bmap block id: 2280
  3. -- flags: C000
  4. -- background id: 4734
  5. -- name: USAH1
  6.  
  7.  
  8. -- part 21 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=325 top=93 right=115 bottom=489
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Which Macintosh?…
  20. ----- HyperTalk script -----
  21.  
  22. on mouseUp -- Home Solution
  23.   determineSoftware -- bg script
  24.   put char 4 of short name of this card into whichCategory
  25.   repeat with i = 7 to 9
  26.     set cursor to busy
  27.     if the hilight of cd btn i = true then
  28.       goSolution whichCategory,2
  29.       exit mouseUp
  30.     end if
  31.   end repeat
  32.   repeat with i = 2 to 6
  33.     set cursor to busy
  34.     if the hilight of cd btn i = true then
  35.       goSolution whichCategory,1
  36.       exit mouseUp
  37.     end if
  38.   end repeat
  39.   answer "Please select at least one software category."
  40. end mouseUp
  41.  
  42.  
  43.  
  44.  
  45. -- part 3 (field)
  46. -- low flags: 81
  47. -- high flags: 0004
  48. -- rect: left=60 top=271 right=342 bottom=187
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 0
  52. -- font id: 3
  53. -- text size: 10
  54. -- style flags: 0
  55. -- line height: 13
  56. -- part name: Home A
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   put char 4 of short name of this card into whichCategory
  60.   put alphaNum(last char of short name of me) into whichSolution
  61.   goSolution whichCategory,whichSolution
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 6 (field)
  67. -- low flags: 81
  68. -- high flags: 0004
  69. -- rect: left=200 top=281 right=340 bottom=330
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 3
  74. -- text size: 10
  75. -- style flags: 0
  76. -- line height: 13
  77. -- part name: Home B
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   put char 4 of short name of this card into whichCategory
  81.   put alphaNum(last char of short name of me) into whichSolution
  82.   goSolution whichCategory,whichSolution
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 7 (field)
  88. -- low flags: 81
  89. -- high flags: 0004
  90. -- rect: left=353 top=270 right=342 bottom=486
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 3
  95. -- text size: 10
  96. -- style flags: 0
  97. -- line height: 13
  98. -- part name: Home C
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   put char 4 of short name of this card into whichCategory
  102.   put alphaNum(last char of short name of me) into whichSolution
  103.   goSolution whichCategory,whichSolution
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 8 (button)
  109. -- low flags: 00
  110. -- high flags: A005
  111. -- rect: left=79 top=284 right=305 bottom=213
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Word Processing
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   if the hilight of me is true then putMeInList (short name of me)
  123.   else getMeOutOfList (short name of me)
  124. end mouseUp
  125.  
  126.  
  127.  
  128. -- part 9 (button)
  129. -- low flags: 00
  130. -- high flags: A005
  131. -- rect: left=79 top=264 right=285 bottom=213
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: Spreadsheets
  140. ----- HyperTalk script -----
  141. on mouseUp
  142.   if the hilight of me is true then putMeInList (short name of me)
  143.   else getMeOutOfList (short name of me)
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 10 (button)
  149. -- low flags: 00
  150. -- high flags: A005
  151. -- rect: left=79 top=204 right=225 bottom=213
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Database
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   if the hilight of me is true then putMeInList (short name of me)
  163.   else getMeOutOfList (short name of me)
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 11 (button)
  169. -- low flags: 00
  170. -- high flags: A005
  171. -- rect: left=79 top=224 right=245 bottom=213
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: E-Mail
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   if the hilight of me is true then putMeInList (short name of me)
  183.   else getMeOutOfList (short name of me)
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 12 (button)
  189. -- low flags: 00
  190. -- high flags: A005
  191. -- rect: left=79 top=184 right=205 bottom=213
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Curriculum
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   if the hilight of me is true then putMeInList (short name of me)
  203.   else getMeOutOfList (short name of me)
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 13 (button)
  209. -- low flags: 00
  210. -- high flags: A005
  211. -- rect: left=79 top=144 right=165 bottom=218
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: Accounting
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   if the hilight of me is true then putMeInList (short name of me)
  223.   else getMeOutOfList (short name of me)
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 14 (button)
  229. -- low flags: 00
  230. -- high flags: A005
  231. -- rect: left=79 top=164 right=185 bottom=250
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: Business Management
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   if the hilight of me is true then putMeInList (short name of me)
  243.   else getMeOutOfList (short name of me)
  244. end mouseUp
  245.  
  246.  
  247.  
  248. -- part 15 (button)
  249. -- low flags: 00
  250. -- high flags: A005
  251. -- rect: left=79 top=244 right=265 bottom=218
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: Presentations
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   if the hilight of me is true then putMeInList (short name of me)
  263.   else getMeOutOfList (short name of me)
  264. end mouseUp
  265.  
  266.  
  267.  
  268. -- part 29 (button)
  269. -- low flags: 00
  270. -- high flags: 0000
  271. -- rect: left=172 top=325 right=342 bottom=426
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 1
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: CoverUp
  280.  
  281.  
  282. -- part contents for background part 1
  283. ----- text -----
  284. USAH1
  285.  
  286. -- part contents for background part 3
  287. ----- text -----
  288. 2
  289.  
  290. -- part contents for card part 3
  291. ----- text -----
  292. Word Processing
  293. Spreadsheets
  294. Database
  295. E-Mail
  296. Curriculum
  297.  
  298. -- part contents for card part 6
  299. ----- text -----
  300. Accounting
  301. Business Management
  302. Presentations
  303.  
  304. -- part contents for card part 7
  305. ----- text -----
  306. Data Entry & Retrieval
  307. Publishing
  308. Architecture/Drafting
  309. CAD/CAM
  310. Unix
  311.  
  312. -- part contents for background part 7
  313. ----- text -----
  314. Click to select the software categories that interest you, then click the ‚ÄúWhich Macintosh?‚Ķ‚Äù button to see the recommended Macintosh.